Primary Care Physicians Rate
physicians_2023 <- ranked23_counties %>%
select(County,FIPS,`Primary Care Physicians Rate`) %>%
na.omit()
highest_phys_rate <- physicians_2023 %>%
arrange(desc(Primary_Care_Physicians_Rate)) %>%
slice_max(Primary_Care_Physicians_Rate, n= 10) %>%
print()
## # A tibble: 10 × 3
## County FIPS Primary_Care_Physicians_Rate
## <chr> <chr> <dbl>
## 1 Falls Church City 51610 301.
## 2 Charlottesville City 51540 296.
## 3 Winchester City 51840 253.
## 4 Fredericksburg City 51630 139.
## 5 Albemarle 51003 136.
## 6 Highland 51091 136.
## 7 Roanoke 51161 131.
## 8 Salem City 51775 130.
## 9 Colonial Heights City 51570 128.
## 10 Roanoke City 51770 127.
lowest_phys_rate <- physicians_2023 %>%
arrange(desc(Primary_Care_Physicians_Rate)) %>%
slice_min(Primary_Care_Physicians_Rate, n= 10) %>%
print()
## # A tibble: 10 × 3
## County FIPS Primary_Care_Physicians_Rate
## <chr> <chr> <dbl>
## 1 Appomattox 51011 6.23
## 2 Pittsylvania 51143 6.68
## 3 Amelia 51007 7.68
## 4 Louisa 51109 10.5
## 5 Richmond 51159 11.0
## 6 Fairfax City 51600 12.8
## 7 Caroline 51033 13.0
## 8 Williamsburg City 51830 13.1
## 9 Dinwiddie 51053 13.9
## 10 Campbell 51031 14.5
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.